home *** CD-ROM | disk | FTP | other *** search
/ Introducing the New Way to Shop From Home / Introducing the New Way to Shop From Home (Iceland Foods) (2003).iso / pc / demo.dxr / Internal_362_flash volume 4.ls < prev    next >
Encoding:
Text File  |  2003-01-01  |  452 b   |  19 lines
  1. on GetUrl me, stringFromFlash
  2.   global newVolume
  3.   if stringFromFlash = "up" then
  4.     newVolume = newVolume + 16
  5.     sprite(29).volume = newVolume / 2.5
  6.     if newVolume > 255 then
  7.       newVolume = 255
  8.     end if
  9.   end if
  10.   if stringFromFlash = "down" then
  11.     newVolume = newVolume - 16
  12.     sprite(29).volume = newVolume / 2.5
  13.     if newVolume <= 0 then
  14.       newVolume = -1
  15.     end if
  16.   end if
  17.   sprite(9).setVariable("test", EMPTY & newVolume)
  18. end
  19.